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JHHHIHIHHHEEHHIHHIHHIIEEEHIHIE HEHEHE 
¥ # 
4 SUMMARY OF OPERATING INSTRUCTIONS : 
3HHHIHIHIHIHIHHEHIHHIHIHIEEHIHHHEEE Eide 


THE FOLLOW pers ne a uM BU an THIS DIAGNOSTIC 
+f 4 DEVICE VER VERIF i ATION CROOE. TF S NOT 
CONSULT THE FOLLOWING DOCUMENT FOR ASSISTANCE. 


OPERATING PROCEDURE : 
1. LOAD THE PROGRAM USING NORMAL PROCEDURES. 
2. LOAD ADDRESS 200 


3. oe Sul A AS TER beh TEST. THE PROPER 


Cote a a TA IF A SOFTWARE SWITCH REGISTER 
IS TO BE USED.) 


PRESS START 


THe PROGRen SHAAD T ABOUT 1 SEC TO 
COMPLETE THE TES AND PRINT : “END OF TEST”. 


OF 
6. IF THE PROGRAM DOES NOT RUN AS DESCRIBED 
VE, CONSULT THE FULL OPERATING 
WHICH’ FOLLOW. 


3 
& 
3 


# # CAUTION # # 
BECAUSE THE TS READ FROM LOGAT ION 773024 
OF T R REPENDAT, IS CONFIGURATION DEPENDANT (SWITCH 
pt ord HIS LOCATION IS NOT INCLUDED IN 


Tilt RT/ON Gu, VRUEIED OL Peau 17,08 Busine 


PRINT OUT THIS LOCATION. 
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| DO! 
| 


1.0 GENERAL PROGRAM INFORMATION 


THIS DIAGNOSTIC PROGRAM IS INTENDED TO VERIFY THE 


COnPUtea mie CHEGKS A CYELIC REINDARCY. CHARACTER! 


R 
LONGITUDINAL PARITY CHARACTER FOR THE CONTENTS 
THE ROM STORAGE AVAILABLE IN AN M9301 OR M9400 MODULE. 


aT PONE NDS TE YEE TES 
REAP tka 


1.2 SYSTEM REQUIREMENTS 


Mg OR EQUIVALENT 
M9301 OR MS4OO MODULE 


proce! is WET TEN 10 RUN_AS A STAND-ALONE PROGRAM 
Ma DES GNED" TO _RUN UNDER AUTOMATED 
BRODUCT” TEST SYSTEM (APT) IN ALL THREE MODES. 
THE PROGRAM CAN ALSO BE RUN UNDER THE ACT 11 MONITOR. 
1.3 RELATED DOCUMENTS AND STANDARDS 


NIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS PROGRAMMING PRACTICES 
DOCUMENT NO. 175-003-009-00 


APT INTERFACE SPECIFICATION, REV. 13 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


NONE, HOWEVER THE CPU IS ASSUMED TO BE FUNCTIONING 
1.5 FAILURE ASSUMPTIONS 


THE PROCESSOR IS ASSUMED TO BE FUNCTIONING PROPERLY. 


ett tetitetateet teteita thee tata 
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150 
1S1 
5 
1 

1 

1SS 
1S6 
24 
138 
160 
161 
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163 
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1 

171 
172 
173 
i” 
178 
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178 
179 
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181 
182 
183 
igs 
186 
1 “4 
188 
190 
191 
is 
13% 
13 
oo 
138 
200 





EQ] 


SE@ 0004 


OPERATING INSTRUCTIONS 


- [0 VERS ARE BEA Feo REC TRIER. (UF USED) TO SELECT THE 


2. LOAD ADDRESS 200 


3. Ren HBRQWARE SWITCH RECT aTER. ¢ Aes TO SELECT THE 


4. START 
OPTIONAL START 


THE OPTIONAL STARTING ADDRESS IS USED TO TYPE OUT THE CONTENTS 
. ROM FOR USE IN VISUAL VERIFICATION OR AS A DEBUGGING 


USE THE SAME PROCEDURE AS A NORMAL START EXCEPT USE 
ADDRESS 210 IN STEP e. 

SPECIAL ENVIRONMENTS 

bg hy. gg ee WRIT , A, A ana a ot THE a 
ON EXTHER QUICK VERIFY, PROGRAM OR RUN-TIRE HODES. 


THIS PROGRAM IS WRITTEN TO COMPLY WITH THE ACT11/XXDP 
INTERFACE REQUIREMENTS. 


ee a N ACTI1 QUICK VERIFY OR XXDP CHAIN MODE 
4 NO MSW QUICK i‘a,_ 


IneRRR UP Hel veecision SELECTION, © THE 
VEER AE WEB POESTRBED rR Ce Pade 





. MAIN 


WONWU © WO ° 


BORER ERRSE 


SREB 


234 
235 
236 
3 
240 
241 
e42 
243 
244 
245 
246 
bug 
249 
es0 
esi 
eSe 
253 
2s4 
ess 
eS6 
es7 
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2.3 


2.3.1 


2.3.2 


PROGRAM OPTIONS 


Pea SUTRA STE NEE TE PiU wen 
ADDRE fie GaRnuGRE ER (177570) THE ADDRESS 
OF THE SOFTWARE SWR (176) IS SUBSTITUTED 


SHOULD SEY THE DESIRED SWITCH VALUE IN LOCATION’ 176° 


IN ORDER TO ALLOW TESTING OF M7S42-YB 


EAMG 12 OP doll INGRAM CR RTUBTETTO 


SWITCH SELECTION 

THE SWITCH + ee (HARDWARE OR 
THE I ROM BOOTSTRAP TO BE TESTED 
ACCORDING TO TUE OLLOWING TABLE. 


1 M9301-YA 

2 M9301-YB 

3 M9301-YC 

4 “YA (OR YC) 

| Be 

6 -YB 

? M9301-YD 

10 M9400-YH (OR YK) 

1, 1 

1 1-YH 

IF THE PC FOR IONS ARE KNOWN BUT 

NOT IN eit Th fre ABove Feeley pote, SET The SWITCH REGISTER TO ZERO 
O DETERMINE THE CRC NO LPC FOR NEW VERSION. START 

The DIAGNOST Cue Fa pag fesurinc Fes MESSE S 

ILL INDICATE THE CORRE C AND 
PC PROVIDED THE TEST fs TaN by aT EROUNS S300 MODULE” 

TELETYPE DIALOG 

SEVERAL QUESTIONS ARE ASKED OF THE OPERATOR IN ORDER 

TO OBTAIN IN SUFFICIENT 1 INFORMATION FOR TEST ING A ROM MODULE 

TED IN THE TIC. THE D 


NG 
NOT 1 
GOURD ae Tee a emu 
CARRIAGE RE orn 


SOFTWARE) IS USED TO SELECT 


SEG 0005 


- MAIN. 
DZMSAC. 


275 
579 
278 
279 
280 
281 
282 
283 
284 
28S 
286 
589 
289 
230 
542 
293 
Be 
236 
297 
238 
e393 
30C 
301 
302 
303 
304 
305 
306 
307 
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2.4 


L_ RESPONSES SACKED FOR VALID OC RS 
iF, ANY TL aren ie S TYPED, THE PROGRAM WILL TYPE 
M+ ian FEED AND 
auaiT” a 
IF A MISTAKE IS NOTI BEFORE THE CARRIAGE RETURN IS USED 
T CAN BE 


I 
wl 
2. TYPE : 
THIS REQUESTS THE VAULE OF THE LONGITUDINAL PARITY CHECK 
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE. 
IT See MORERSs WHICH THE UNIT UNDER TEST’S LPC 


a S ty ine ‘eet T ' 
a Boots tie RobWLe f isfy fs INTO 2 z SST ols SPACES. TYPE 
THE STARTING ADDRESS 

STANDARD M9301 pre STO BECIN: aT ironeo. 


4. TYPE LENGTH (BYTES) oe. ist ROM ee 
THIS TREOUESTS THE 1ST GROUP 


iN BESS ree THe STaROARD 3s W320} OB Eg ra ae ADRESS SPACE 


USED BY THI Is VERSION, ANSWER O TO THIS QUESTION. 


Fars Re mig ve eves nobress N'Y ines SECOND DisTr DISTINCT 
GROUP OF ROM ADDRE 
Boot Be LENG HOLD 1550 ne a ROM ADDR. SPACE: 


IN’ By vTEs, Te "Sanborn 90016 Ra0G HAVE-A SECOND ADORESS SPACE 


oF 10 IF THIS SECTION OF ADDRESSES IS NOT USED 
BY THIS VERSION, ANSWER 0 TO THIS QUESTION. | 


EXECUTION TIMES 


THE DIAGNOSTIC COMPLETES 1 PASS IN LESS THAN 1 SEC. 


THE PROGRAN MILL HALT BS PEP iveven, IF Run 


R APT THE PROGRAM WILL CYCLE CONTINUOUSLY 


SEG 0006 


MAIN. 


S 


WWW) WWIWIW WWW) 
be es Bee ha ee 
WONWUCWl-O 


PORT SFR GRC ORURM SONS ORONO ES 


HO 1 
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3.0 


4.0 


5.0 


ERROR INFORMATION 


BEETS REURTLTEEEORE ta BESET BAINES 
BNY DISCHRPONEY N THE LPC CAN ASSIST IN ISOLATING THE 


UNDER APT THE ERROR IS per BY DEPOSITING ERROR INFORMATION 
IN THE APT MAILBOX BEFORE HALTING. 


PROGRESS REPORTS 


INCREMENTS TO THE 


Caer de Hed he 


RESET WITH EVERY RESTART. 


TRLETPe PETER cht Paes Of “Ree Tay RE Re DIME CONSOLE 


THE ALGORITHM FOR corp ee THE CRC IS THE SAME AS THAT 


one ae A BYTE-BY-BVTE BRSTS. WHILE’ THE 
SUCCESSFUL IN DETECTING MULTIPLE ERRORS, ITS 
A DEBUGGING AID IS LIMITED. 


ne i SOUR P APTN NER gS 


N 
T post ION, IT IS VERY 


BF eth A" SCE re OBaresPonbiic’ hoe tH 


CHIPS CAN BE I 


IF NO OTHER CLUES CAN BE OBTAINED, START THE PROGRAM 
AT 210 AND COMPARE THE PRINTOUT OF he CODE WITH THE 
LISTING FOR THE VERSION BEING TESTED 


# * CAUTION # # 


BECAUSE THE CONTENTS READ FROM LOCATION 773024 
OF THE M9301 OPTION IS CONFIGURATION DEPENDANT (SWITCH 
Te. R YPANT), THIS LOCATION IS NOT INCLUDED IN 


T ‘ 

THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING 
THE ALTERNATE STARTING ADDRESS(SEE SECTION 2.1.3) TO 
PRINT OUT THIS LOCATION. 


SES 0007 


es ee 


I01 
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LISTING 


6.0 


- ENDR 


———— ee 
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Pier Re 
: 


NLIST MC,MD,CND 
TTL BASIC DEFINITIONS 

HINITIAL ADDRESS OF THE STACK POINTER #4#% 1100 *## 

agANiT ta 


wesw | 


001100 
BRUTY For'Scope «= EBA DEFINITION OF Scope GALL 
jxNISCELLANEOUS DEFINITIONS 

Ts ; CODE FOR HORIZONTAL TAB 
~ i 
CRLF = ig HCOOE FOR aRRIAGE FI RETURN-LINE FEED 
EQUIV es PSW a 
STKLNT= i?eers s3STACK L LIMIT REG! REGISTER 


T REQUEST REGISTER 
pas. ER MRIBES BRIE, GSE 


;#GENERAL PURPOSE REGISTER DEFINITIONS 


RO= 70 ;;GENERAL REGISTER 
= & items Reelsten 
R3= y $8 G 
RY= x4 ::GENERAL REG STER 
- % Beta Rater 
R7= 47 3 GISTER 
“ % :STACK POINTER 
- “7 ::PROGRAM COUNTER 
iXPRIORITY LEVEL DEF INITIONS F 
PRiz 40 tPA ORT Ty LEVEL 1 
PR2= : PRIORITY LEVEL 2 
= 140 Balan LEVEL : 
s ;3PR Oni Ty LEVEL 5 
rs ‘PRIORITY LEVEL 6 
PR7= ::PRIORITY LEVEL 7 


Fn tam te tan tan am hae ae a a he ae tea ca cee hee hae ee ee ee he tae a 1 cae ae ta ae ae ae ta an a a a ea a ca ae a te an en an a an a a 
0 0 0 0 0 0 0 0 0 0 bh 2 1 = bb 0 0 0 8 2 0 0 
a ee eae le ae es es 








SEG 0010 


T) ##SCOPE## 


“Oo 


KO1 


si BESERVED AND ILLEGAL INSTRUCTIONS 
T 
put 
EMULATOR TRAP (EMT) ##ERROR## 


;; TIME OUT AND OTHER ERRORS 


necd 
Ben 


Con rmou-O 
SS ee ae ee ear nr 


INITIONS (BITOO TO BIT1S) 


sae Oe Samaeea 
Bone, , ATTTSTTATD ~ SE RES EE eR Boge... ER eeeEnee 


UNUMUNEEAALEAAEE THLAGMSAAY LALGUMADDARDDRRDAD> BOWS SoS Ses 
euch ooadsagsagas Speneere eee teeHPraassassaas SeGnee S 


BASIC DEFINITIONS 
IC “CPU” TRAP VECTOR ADDRESSES 
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epaee SE suseeseeeee: om 


i ee i ee ee ee ee ee ee ee ee ee 1 eh ee ee 1 ee ee ee ce ee ee ed 


- MAIN. 


com 
~ 
a 
; Ce Kem Ree ee ee Re Kee hee cee cee em Ke Kem ham Rom hoe Km Kom Kae Kam Kam eam hem kam eam eam haan Kam Lom am ham Kam Ree Rae Roe hae Roe Ro Ron ko ko ro ee ee ee eee ee Kem Reoen tems haem Roam Kem hem Iam Ion} 
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3h Be we Try Berne te 
= 
a) PIRQVEC= Haas RECTOR acer VECTOR 
388 .SBTTL TRAP CATCHER 
(1) 000000 
(1) ;#ALL LOCATIONS FROM 4 - 776 CONTAIN A ”.+2,HALT” 
(1) >#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
1) cari j LOCATION 9, CONTRINS TO CATCH IMPROPERLY LOADED VECTORS 
(1) 000000 DISPREG: .WORD O ; ;SOFTWARE DISPLAY REGISTER 
(y 000000 SWREG: .WORD O :SOFTWARE SWITCH REGISTER 
LR TYPOUT 
3 BER nay 
390 012767 000001 o00612 MOV #1, TYPOUT 
331 000167 000654 IMP START 
393 77776 PS=177776 
Era boon TRAPVEC= 
3% 001000 .=1000 
397 001000 177570 SWR: 177570 
398 001002 177570 DTSPLAY: 177570 
a ier olor pare: £790 
401 ooigig ig : 1 
402 00101 1000 DATLNe: S12 
403 001014 000000 XORS: 0 
404 001016 000000 EXCRC: 0 
40S et 100000 ne 4 
iS 1 CRC: 
001024 ACTLPC: O 
408 0010265 PARCNT: 0 
403 001030 TYPOUT: 0 
411 .SBTTL ACT11 HOOKS 
(2) g3 LEEGSKRRSEERERREE RR RERRERE REAR ERASERS RRA ARERR RRE RAE RAA ARES 
(L) 1032 a a oe SAVE PC 
(1) pease ‘ en a . 
(1) 000% 002060 SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) o000S2 -=oE 
(1) 00052 000000 ‘ 0 j52)SET LOC.S2 TO ZERO 
(1) 001032 “=$SVPC : RESTORE PC 
ie .SBTTL APT PARAMETER BLOCK 
(2) ; KEEEEAT SERRRE REA eae 
(1) ; SET LOCATIONS 24 AND 44 AS REQUIRED FOR AP 
7 001032 | aueeus eenensneueGseeGust4nSGSGKC0BH400048058800800080008 
(1) 000024 224 tS T*pouen Fart 10. AStnr TO START OF PROGRAM 
(1) 000024 00200 200 : FOR ART 
(1) 000044 -£44  +:POINT TO APT INDIRECT ADDRESS PNTR. 
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09-FEB-77 10:02 APT PARAMETER BLOCK SEG 0012 
ooc044 001032 SAPTHOR ;;POINT TO APT HEADER BLOCK 
001032 ;;RESET LOCATION COUNTER 
; itvavsintneessiinccanstaensearntnesetseverserevenstaesenerstney 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 
001032 : 
Bie peme FN: 28 fon Dealers, oa 
1 TSTM: 
OoLoN2 00000 asia “hom 6 TONAL RUN Tine (SECS) OFA ACS FOR ERCH ADDITIONAL, UNIT 
Bolo S000 * WOR SerENo- er Te A tose ft Pate 


- SBTTL MAILBOX-E TABLE 
; saneeeeoneneaneneeanensneaneentnsneenneoneeet 





oie she 3 T MAILBOX C 
eapleat AC “HORD Hite Mics R 
001052 STESTN: .WORD ATESTN 5; TEST NUMBER 
001055 Servet: ORD Htevice Cour 
001 SUNIT: . AUNIT $317 
Obi tee Sos: “Hoo Roa) | tease ess 
001066 SETABLE: APT ENVIRONMENT TABLE 
001066 SENV: .BYTE ENV  BUIRECPENT - 
851880 SEND: BOAR REI, FRY arere PA 
001072 SUSHR: WORD : USER SUITCHES 
* a aA A ats 
1 ll 1 11/05=08, 11720203, 11/40=04, 1145-05 
+ 1 7 Oe, Past vie 
1 Bt cargos  — 
a BIT 
001076 sete 
MEXIT 
001076 005067 177746 START: CLR SFATAL CLEAR ERROR NO. 
001102 005067 177740 CLR ‘CLEAR MESSAGE TYPE (APT) 
001106 012767 000001 177736 SET TEST NO. 


STN 
.SBTTL INtTiaLit ie COMMON TAGS 
;;SETUP THE STACK POINTER 


it 1 oni58 900034 mn TRAP, VECTOR FOR TRAP CALLS 
001134 O27 37 004412 000024 cae CEveL jPOuER, FAILURE VECTOR 
: F ' ITCH REGISTER. IF IT IS 
wig ory gem. UREA RSF Fe BE 
Bi 1e2 i57e7 ree ta tt NOV SOcth SER siSeT Pe FR a HAROUARE SWICH REGISTER 


van anata lana lanlianlantant “alana ane an ta anaaenananan an aen an ana a atan “ an ann Lan an an a a a an aa 
TOMI MONI be bb bb bh Pb be Bb bb bb be be bP eb ee ee ee 
Ft Nt et at et Nt et a EG a a er et ee es wes i ee ee we we we ee 


r 


LEE LER LR LPP OP Fe FP Pm 
furururorefrururororururuororuru 
et et et eet eet eet eet eet eet ee ee ee ee ee ee ee 


SRSRRPOREES 


S828 


HELE 
RR 


GaRHSHHAGS ESTES ESSE 
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022777 177570 
1012 
666, 8K 
at 
Hey 
7 
iba Tae7e? 
276? 


nit 
aE 
es 


HEA 177462 


SRSSUSRRR PRE RRSC RY SRO 


Py 3 
ee 
£ 


S8888S8S8S8SSSSSSSSSSSSSSSSSSSSsssss SS88sss 


5 


177604 
177574 
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INITIALIZE THE COMMON TAGS 


67S: 


GETIN: 


GETe2: 


SEEEESLLEL 


CMP 


aos mae 


328g SHE 2g 


a 


$a 


an 
4© 


SBR 


NO1 


#D0ISP, OISPLAY 
e , aSUR 


ees, (SP) 


SB ISPREC, DISPLAY 


(SP)+, J8ERRVEC 


sar Teize, SENVM 
IsauREG, SWR 


(SP)+, EXCRC 
(SP)+, EXLPC 
(SP)+, ROMSAL 


(SP), DATLNI 


;;AND A HARDWARE pr ioe REGISTER 


Hee id toda te Soeur 
i eoney Tem aT 

;;POINT TO SOFTWARE SWR 

;;RESTORE ERROR VECTOR 


+ REP CER SIZE UNDER 
tiNS OSE AP APT SW 


SWITCH Len 


Wir $0: oR 
if wie ITCH REGISTER =6” 


SOF THARE SWITCH REG 
Ge "ERO: GET INPUT 


i Gh ExpEcTED cfc 


;STORE EXPECT. CRC 
TYPE LPC INPUT REQUEST 
;STORE EXPECTED LPC 


;REQUEST 1ST ADDRESS SPACE 
; INPUT SA 


;REQUEST LENGTH OF IST ADDR. SPACE 
; INPUT LENGTH 


SEG 0013 


B02 
oS-feB 7 10:02 isan ‘intr 12e s THE COMMON TAGS SEG 0014 








gat Type ;REQUEST START ADDR. FOR 2ND SPACE 
bie? 177312 Sov (SP)+, ROMSAZ elabagetoce 
Ibi TYPE. . ;REQUEST LENGTH OF 2ND SPACE 
4 io a 
33 BI BE? one HS He a eo 
aro Giese Stes - ae ae Fa SR 
Bing aa ed eae 
44 001540 HOV ROMSAL RL ee TO_STaRT OF isT Row SPACE 
hiss RR Stata A Sc 
ie Obisee CHO: isk PEALPE oe aa Sesr 
as Bee, Dee 
WES cats Bier) 177176 HOV DATLNE' RO iSeT LeNeri OF eNO RON ADRS. 
ue caty Soeee? on0s2e J BE, LPC LCORPUTE. enn OF LPC 
4g3 001 001403 ee co |i Peo: BR 
450 OOle3e OOS7E? 176204 Tst = UNDER ACT AUTO ACCEPT? 
a Pra 
uss Doles Gee7e? I77iNe 177150 Chi: GHP EXCRCACTCRC ===, COMPUTED = EXPECTED ? 
44 001682 001431 BEQ CK tIF SO: BR 
1 T ;TYPE CRC ERROR MESG. 
2 Bie O167% 177132 ar EXCRC, -(SP) ;PUT EXPECT CRC ON STACK 
$00 ates 1OHHOT Tee i YPE ACTOR. CRE HESSC 
s Bie O167%— 177124 HOV” ACTCRC, -(SP) ;PUT ACTUAL CRE ON STACK 
oa ee 176136 002060 CHP” 42, #SENDAD ts RCT AUTO MODE? 
oe “nat : 7? 000001 177150 cee #1, SENV syns frre 
Bee fies Smut mie my Ream, «=| GUL PS Baa © 
Sle 00173 026767 177062 177054 CKI: CMP ACTLPC, EXLPC :CONPRRE EXPT. LPCSACTUAL LPC 
514 00174 104401 TYPE ‘TYPE LPC ERROR NESSG. 


' 
' 


# 


WNUNUUTU 
bs fe pe Pe Bee 


IO NGUT 


4 


SEER REO Re CIO Ue HOOK ESS SRR LOR ACARI TNS oe OOS 


COe 


vo 
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1 EXLPMG 
asd yeaa 177042 MOV EXLPC, -(SP) PUT EXPECTED LPC ON STACK 
1 1 TYPOC i TYPE EXPE LPC 
i ! TYPE :T ROTA. LPC MESSG. 
1 6 177034 ov ACTLPC, -(SP) our ACTUAL LPC. ON STACK 
1 176044 002060 amp " 42, #SENDAD : AC buTO MODE? 
404 BEQ 1 th = 
: ; 7 000001 177056 che $1, SENV 
12767 1 1S: MOV 83, SFATAL tov, t X ERROR NO. 444% 3 44x 
Genie Clever oonom izrom is: A RS SATA. fat Ox ERROR WO. 
002026 000000 HALT 
026727 176006 O02060 CKe CNP 42, #SENDAD - AUTO ACCEPT? 
1 BEQ 1$ ;IF SO: 
O4401 TYPE “TYPE END OF TEST 
7? 177004 1S sBUMP PASS COUNT 
1 oo004e MOV ae42. RO CHECK APT 
Gauote EQ. ‘ t *KEEP GOING 
00471 SENDAD: J PC, (RO) sACT HOOKS 
Kets 0 
PG wie ‘ NOP 
enaierratty 
000167 177200 GOAGIN: JMP RESTRT DO AGAIN 
002074 016767 176722 176712 CRC: MOV ACTCRC, XORS 
102 11104 CLO: MOVB  (R1),R4 GET CHAR. 
1 1 173024 CMP #173024, R1 ; LOCATION EFFECTED BY SWITCHES 
119 1004 BNE CL3 : IF 
1 DEC RO “FIX COUNTERS 
114 ¢ RO 
116 1 T (R1)+ ;FIX POINTER 
02 1 BR CLO : CONTI 
767 000114 CL3: JSR PC, PARITY 560. cer 
787 000166 SR PC; XOR x 
ROR RY sROTATE 1 POS. RIGHT 
14 BCC CL2 -T CARRY: BR 
uo 000400 BIS #400, R4 :SET BIT NINE 
1 CL1: MOV RY, RS ;SAVE CHAR 
2 177703 BIC #177703, RS 
“6 177703 BIC #177703,R5 
be 000074 BIC 474 RM 
58 7 176620 CL2: MOV RY; XORS 
™ DEC 
ooh EG CLLAST IF _LAST 7CRR: BR 
B16? AA th CLLAST: MOV XDRS RY sGET NEXT CHAR. 
002210 005167 176600 * COM XORS’ 


segapreneeessansaqaa 38 


2 


SRB URR ERR Be aeRO 


cow 
5 
tu 


MACY11 27(1006) O9-FEB-77 10 
Pll O9-FEB-77 10: 


002214 
' - 





002406 


ORE 





042767 
042704 


d 


N“ 
NO 


2 lees 6S 


i=) 
no 
33 
— 
_ 


= 
| 


oO 
ata 
3 
-_ 


SEE 


a 


176572 


176562 


176516 


176442 


176424 


DO0e 


:15 PAGE 7-7 
INITIALIZE THE COMMON TAGS 


PARITY: 
CLPO: 


CLP1: 


CLPe: 
XOR: 


LPC: 
LPC1: 
LPCe: 


TYPROM: 


TYPR1: 


ENDOT: 


TYP: 


ae 


WEESIE 


= 
mw 


ow 
ae 
MOO 


@B4ss 5 


as 


ES 2GRBSSyRRSS 33 


#177050, XORS 
8177727, RY 


HAS, AETERC 
PARCNT 


;COMPLEMENT ALL BUT BITS 38S 


i CLEAR BIT COUNTER 
F NO 

ROTATE TO NEXT BIT 

;CONTINUE FOR ALL BITS 

;SEE_IF ODD # OF ONE BITS 

:SET PARITY BIT 

sEXIT 


;XOR SUBROUTINE: R4Y WITH XORS 


;LOCATION EFFECTED BY SWITCHES 
;IF SO: 


SKIP LOC. BY BRANCHING 


; TYPE HEADER 


;POINT OT 1ST ROM SPACE 
; TH IN Rl 


SEG 0016 


BSS Shh LORASBR AOR ERE TS i 


B 


a Sd at al 


& 


LR LR FRR FR FFF FF EEF CO 
ee ee a ee 
ee a a es te le we 


E02 


wv 





MACY11 27(1006) O9-FEB-77 10:15 PAGE 7-8 
1l 09-FEB-77 10:02 INITIALIZE THE COMMON TAGS SEQ 0017 
See boe7bn 000003 TYPO Orr a 20 S MULTIPLE OF 4? 
ae i Be 1398 i PORTS BR 
TYP3: 
3 CARLF 
74 O100% MOV RO, -(SP) -PUT ADDRESS ON STACK 
1wHde TYPOC TYPE ADOR. 
104401 TYPE 
006006 COLON 
O16046 TYP2: MOV (RO)+,-(SP) PUT pata ON STACK 
1 TYPOC TA 
002510 104401 TYPE t TYPE 2 SPACES 
Gossis 1 Bee Ri ; FINISHED? 
16 001361 BNE TYPO ‘IF NOT: BR 
002520 RT PC * RETURN 
AUTACT: CL RO 
oo0002 AUTI: ADD #2, RO ;BUMP TALBE INDEX 
ages 00S162 177777 CHP (RO), #1 : 4 KNOWN VERSIONS? 
OO4644 176254 ae Tx (RO), ACTCRC i00 THI CRC AGREE? 
feare? oo0042 002060 or ae , #SENDAD HUROER acy AuTo ees 
016067 005162 000002 MOV TMSG(RO) , AUT2 *SET UP VERSION MESSAGE 
tarry TYPE 
Ee? 44 1 auTS: S V TXCRC(RO), EXCR T CR 
Bt PRES rata 158518 : v BEER )} BE ‘eet EXPECTED CRE 
000167 177124 JMP CKI CHECK LPC 
104401 AUTERR: TYPE 
1 000001 176224 V #1, SFATAL MOVE TO MAILBOX ERROR NO. #444 1 4x8 
018767 000001 176214 MOV #1; SMSGTYP T MAILBOX FOR FA FATAL ERROR 
HALT iE PT F 
.SBTTL TTY INPUT ROUTINE 
+ PEREGERES SESSA EERE ERRRRRRA RRR RR REESE RE RRRR RRR EL EES 
002634 177560 tks: .WORD 177560 ::TTY KBD STATUS 
002636 177562 STKB: WORD 177562 :: TTY KBD BUFFER 


j Sesnsusouscatesnibecouenssuenecstovesversstossnlenetaueeaaniane 
:ATHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


+ ” ROCHR ii INPUT a SINGLE CHARACTER FROM THE TTY 
* RETURN HERE TACK 
; itt TH ARiTe BIT oH I OFF 


002640 011646 SROCHR: MOV (SP) ,-(SP) ;;PUSH DOWN THE PC 


FOe2 


-MAIN. MACY11 27(1006) O9-FEB-77 10:15 PAGE 7-9 
DZMSAC.P11 0:02 TTY INPUT ROUTINE 


09-FEB-77 1 SEG 0018 
4(SP),2(SP) ;;SAVE THE PS 
18: Pere asTKs ys FOR 
BPL 7) 
MOVB ie! 
BIC i ateaae USP) T RID OF tu IF ANY 
ire 4(SP), #23 st TROL-S? 
2s: Ste a top FOR A CHARACTER 
BPL es UNT Ts THERE 
me ee) Hee 
Ris ts, a i rh 7a eSey 
BNE 2s isIE NOT DISCARD IT 
3S: BR 4(SP), #140 Hone tT 
BL 4§ 
H(SP) #175 ia Are ei CHAR? 
if #40, 4(SP) eer Pe 





48: 
sesso! ecsessnarsensvessssusdiopettatel®, Ueetosusressssssasss 
tATHIS. ROUTINE WILL INPUT A STRING FROM THE TTY 





i IN TRING FROM 
: URN HERE toe & BBct RN ARRE TER. WILL BE ON THE STACK 
: 1 TOR WILL BE A BYTE OF ALL O’S 
SROLIN: MOV R3,-(SP) .s 
CLR -($P) ote RUBOUT KEY 

012703 003214 1$ MOV sSTTYIN, R3 : GET ADDRESS 

066703 003224 cH SSTTYINGE. R3 35 BU yeu 
00277 1040S RD ig He : ONE CHARACTER FROM THE TTY 
12er 3 000177 10S: one #177, tr3) : iS IT a RUBOUT 

in ee 

03019 005716 TST (SP) He Is THIS THE FIRST RUBOUT? 
B030 1 1 BNE 6$ ;;8R IF NO 
003014 112767 000134 000170 MOVE = #°\,, 98 :: TYPE A GACK SLASH 
DO3022 Jowo1 00321 TYPE 
003025 012716 1 we HOV 1, (SP) ;;SET THE RUBOUT KEY 

ry 003214 : CMP R3, #STTYIN bier ae K EMPTY? 

103434 BLO *BR IF YES 

111367 000144 HOVE (R3), 9S t SETUP TO TYPEOUT THE DELETED CHAR. 

BR 2s 4 ANOTHER CHAR. 
16 Ber KEY SET? 





SS: TST (SP) 
BEQ 
73 000124 MOVB 


Re 
aR 
23 


ne THE RUBOUT KEY 
#25, (R3) 3 TER A CTRL U? 
8S 33 NO ” 
$8 A CONTROL “U” 
;;GO START OVER 


000025 7$: CMPB 


ee ee ee ee ee ee ee ae ee ee en ae ee ee ee te ae ee ee be be Be he be Pe Pepe be Po Pe he P= Be Po he Pe Pe 
ee et et Ne ee Ne ee ee et Net et et Nt et Me Net St Nt et et Cet Ct Nt et Ct Se et St Cet Ne Nt Net et et et et ec Ce Net Se et Se Ne Cie et ee See et Cet ee ee eet ee et ee 


Se 
a: 

a3 

G2 


LQ l&_l°Q_lOx_lCO COOL L_ LLL LL On LO ORO OO PALA LP LO LP mF hm i, i, im, in, in, iin, In, in, in, in, in, in, in, i, 
os 

8 

ee 

— 


t 
' 
! 


G02 


.MAIN. MACYLI 271006) 09-FEB-77 10: I§ Pa z- 0 
DZM9AC.P11  O9-FEB-77 10:02 Ty TINE SEQ 0019 

(1) 003110 13 000022 8S: MPa 2, (R3) $3 ACTER A “#R"? 

(1) 003114 O11 ts 

(1) 003116 108013 CLRB (83) Wea THe CHARACTER 

tix 

(1) Goals Biaot possie TYPE IER Fue CH enT 

(1) 0031 00717 BR 2s GO PICKUP, ANO’ RP CHBCTER 

(1) 0031 iowo 003224 4S: TYPE SQUES - 

(1) 1 1 BR 1s Hi AME BUFFER AND LOOP i 

(1) 003140 11136 3S: MOVB = (R3),9S ::ECHO THE CHARACTER 

(1) 003144 104401 00321 TYPE 9 

(1) 003150 jeeres 00001 CMPB 3 s«aIS, (R3)+ ; CHECK FOR RETURN 

(1) 154 001 BNE 3 LOOP IF NOT RETURN 

(1) 003156 177777 CLRB = - 1 (R3) CLEAR RETURN (THE 15) 

(1) 003 ibe 104401 003226 TYPE SLF ;; TYPE ALINE FEED 

(1) 166 005726 TST (SP)+ “CLEAN RUBOUT KEY FROM THE STACK 

(1) 003170 012603 MOV (SP)+,R3 RESTORE RQ 

(1) 003172 O1164% MOV (SP), -(SP) ; ]ADJUST THE STACK AND PUT ADDRESS CF THE 

(1) 003174 016666 000002 MOV 4(SP} 2(SP) 33 FIRST ASCII CHARACTER ON IT 

(1) 012766 003214 OO00004 HOV eSTTYIN, 4(SP) os 

(1) Oo3e1¢ 00 9S - BYTE 0 sr STORACE FOR ASCII CHAR. TO TYPE 

(1) reat 000010 STTYIN BKB 8. SERVE 8 BYTES FOR TTY INPUT 

(1) 003224 077 [ASCII "9" QUESTION MARK 

(1) 015 : ASCII <iS> ; CARRIAGE RETURN 

(1) 003226 oo0012 SLF: -ASCIZ (12> NE FEED 

(1) 052536 005015 000 SCNTLU: [ASC ster case tise >sCONTROL “U™ 

(1) 003235 136 006507 000012 SCNTLG: .ASCIZ /#6/<15><le> /FSCONTROL -¢~ 

(1) 003242 005015 053523 020122 : .ASCIZ <15><12>/SWR = / 

(1) ieee wa 047040 OS3SOS SMNEW: .ASCIZ / NEW = / 

(1) 003260 036440 000040 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


5 5 JHIHIMHIHHHIHHHHIEEEHHHIHHIEEHHHIHIIEHEHHHHIIEEJHHEEHEHEEEEEE HE 
‘ ATHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


j RCHANGE TT TO BINARY. 
*THE INPUT CHARACTERS W Ce Oe Ee OR one 


ix0CTA DIGITS. IF AN I sem. A“ rin BE SAYPED 
HETEN BE acy A hi “RETURN he i ETE NUMBER MUST 
YPED. THE T NPUT IS ING A CARRIAGE RETURN. 


F 


" RDOCT 
: RETURN HERE Ow CO ORDER. BITS ARE ON TOP OF THE STACK 
oi ::HIGH ORDER BITS ARE IN SHIOCT 
903268 11646 SRDOCT: MOV (SP), -(SP) js PROVIDE SPACE FOR THE 
16666 000004 ooD00c2 OV 4(SP}.2(SP) ++ INPU 
003274 O10046 RO, -( SP) >:PUSH RO ON STACK 
Bosa08 pineue MOV.’ =CSP) it PUeH RS ON STACK 
003302 TOMaOE 1S: ROLIN 2 +t PERO AN gE LI 
003304 012600 wat HOV {SP)+,RO GET ADDRESS OF 1ST CHARACTER 
eae CLR ’ + NAR DATA WORD 


BQ LR LR FR FR FR FR FR FR FR FR FR FR FR FR FR FR RO OO 


be IL) LI eh 
ee ee ee ee ee ee et et et ee et et et et eet eet ee eet ee ee ee ee ee 
= 


Be 
<= 
QO 
1 
wD 
Dw 
Pattee 


HOe 


.MAIN. MACYLL 27( ) O9-FEB-77 10:15 PAGE 7-11 
DZM9AC.P11 os -tbgeo? 18:00 READ AN oc TAL NUMBER FROM THE TTY SEG 0020 

(1) : V (RO)+,-(SP) s TH TER 

(1) yt - 4 sf° F at oe o te? ti . 

(t} bsrte 200080 Bere igs (SP) bine OCTAL DiGi? 

(1) 122716 000067 CMPB sé’ 7, (SP) ty 

a) ee ese Sd : 

(1) OosG eats ROL Re sy 

(1) 006301 ASL Rl 3584 

(1) 003344 006102 ROL Re 

(1) . 003346 006301 ASL Ri ; 348 

(1) 005350 006102 ROL R2 

(1) Dae TE 177770 BIC #407, (SP) ;;STRIP THE ASCII JUNK 

(1) 003355 052601 R00 (SP)+,RL Hy: IN THIS DIGIT 

(1) 003362 005726 3S: TST (SP)+ ::CLEAN TERMINATOR FROM STACK 

(1) 003364 010166 000012 MOV R1, 12(SP) ::SAVE THE RESULT 

(3) posa74 Oieete rene: HOV CSB Ye Re 

{3} ree 12601 MOV (5P)+'RI Boe Shek Nt fe 

(3) 003400 012600 Ho (SP)+/RO INTO RO 

(1) ret riage 4§: TS (SP)+ i: PARTIAL FROM STACK 

(1) OOMID fONHOL | Eee + Ee UP THRU THE BAD CHAR. 

(1) osia O44. 003224 SS PE Osaues sna" OR" & OLE” 

(1) Bos4eG bBa7a5 BR es i topy IN 

bbe = a ‘ailld NPE ROUTINE — idee 
PEERS RKSRESEK ESRB EA HSK AKKKRERS ASK GEL REEKALE RRA EKER EHRHRAE AE HL ES 
TS Ie Unt eee A reed Oe aul cea TO erten ef in Fee 
MOTEL: Be ONHtR Me heen oe 'Pttetebaticehe sebuinese 
j ENOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


(1 
(2 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
7 
d 
(1 
(1 


PACALL: 
:#1) USING A TRAP INSTRUCTION 
TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


; ¥OR 

;% TYPE 

- MESADR 
poaied 10a? 2 000265 STYPE: T re FIPrLs ita Tere A TERMINAL? 
003432 000000 HALT fo IF NO TERMINAL 


00 3 BR 
Oos40 O01 ooo0n2 ey sae i tepy Ss 2 STRING 
pod OO000i 175414 chee sac fEM SeNy ae RoAbT 

CK FOR APT CONSOLE 
003454 132767 000100 17S40S BYT8 BAPTSPOOL, SENVM : 
003462 001405 BEQ «2S + tNO, ont CHECK FOR CONSOLE 


ee ee ee ee et et et et et et et et et et eet eet ee et et ee et er ee ee 





10e 


-MAIN. MACY11 27(1006) OQ9-FEB-77 10:15 PAGE 7-12 
DZMSAC.P11 09-FEB 


-77 10:02 TYPE ROUTINE SEQ 0021 
? S FOR APT 
my ee, Rel ee 
432767 000040 175363 625: girs BRE TCSUP, SENVN ee PPRESSED 
2s ‘ (RO)4, =(SP) BE TYPED ONTO STACK 
AF ode BNE 4g’ ate ake itté BF RMTAAT OR 
005726 TST (SP)+ tie TERNINA POP IT OFF THE STACK 
Ears 60S: MOV (SP)+,RO 3s 
16 o00002 3S: ago #2, (SP) j 5 AOTUST RETURN PC 
ise?16 000011 4§ cee BHT, (SP) ::BRANCH IF <HT> 
ice? 1b 000200 CMPB ss CRLF, (SP) ;;BRANCH IF NOT <CRLF> ‘ 
1006 BNE cs 
005726 TST (SP)+ :;POP_ <CR><LF> EQUIV 
104401 TYPE :: TYPE A CR AND LF 
TDSnE? 000130 et T T 
oper “ed pee ETAT PP CRSRACTERS 
004767 OOODO0SE . Ss: ISR PC S$TYPEC ::G0 TYPE THIS CHARACTER 
26 00013' 6S: SFILLC, (SP)+ i513 IT TIME FOR FILLER CHARS. ? 
1 BNE +: IF NO Nex CHAR. 
016746 o00iz MOV SNULL , -(SP) :GET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 
105366 0000 1 7S: DECB 3s SP) is DOES A NULL NEED TO BE TYPED? 
BLT 6 BR IF NO--GO POP THE NULL OFF OF STACK 
004767 O00! 2 ISR PC STYPEC :GO TYPE A 
105367 000 ’e cB SCHARCN *:00 NOT COUNT AS A COUNT 
000770 BR : + LOOP 





;HORIZONTAL TAB PROCESSOR 
: vB (SP) 3s RE WITH SPACE 

000007 oo000s2 3: i i Sean Pith s AT 

BB es oe 

000044 STYPEC: STB aS TPS ::WAIT UNTIL PRINTER IS READY 

ed RENE? IR R.GATG HRP tae 

cL CHARC :: YE =-CLEAR CHARACTER COUNT 

000012 00002 1S: CMPB LF S<SP) iTS ¢ CHARACTER A LINE FEED? 


4 F YES 
NE BRO ‘ee COUNT THe COUNT KOUNT STORAGE 


1778bG HETTY PRINTER BUEFER REG: ADDRESS 
0 3C L CHARACTER FOR FILLS 
2 tIEONTAINS 8-OF FILLER CHARACTERS REQUIRED 


as 
o- 

8 
= 





Fe ae tae 1 he ae a he ae ee ee ee ee ee ee ee ee ee ee ee ee te ee ee te ee Be ce oe, Le ee, ae ee ce, cee, oe, ee, ce, ee, ae, ce ee 


eee ee ee ee be ee he Oe be ae ae be he Be be he ee ae ae be be Be Be ae be ae Be Be Be Pe ae Be he Be Pe Be Pe Pe Pe Pe 
i i i i i eh eh hh hh Rh Dh hh hn 


cess Seeereee™ 
gail HEXatereecties 
3 





JOe2 


Yll 27(1006) O9-FEB-77 10:15 PAGE 7-13 
BoNGAC.PIt  08-FEB-77 10:02 TYPE 





SEG 0022 
2 ln TER A “LINE FEED” 
ee 5 AF o 
tt} Beat RAS PARLE: ‘BYTE ' i dt BTN vat eeLe” FLAG (BIT<07>=0=YES) 
iB ” -SBTTL APT COMMUNICATIONS ROUTINE : 
HERMEARSESHEERSKEARERRZSE EE 
ona gona: omnes Gittts ata TTR ETE StS PEEP ER Et 
th 6 eres 600001 ie satya: MOVB #1_SHFLG ::T0 TYPE A MESSAGE 
) o fA oe TO ONLY REPORT FATAL ERROR 
(1) ll 000001 000220 satya: MOVB ; 3 , 
(1) 003742 : ngplten = 
} BRE Blam my AE) A ETRE 
(D 10576 76? 000206 ISTB SHFLG i; SHOULD TYPE A MESSAGE 
o° & 9 
(1) aaa Oo e 000001 175104 CNPB ss SAPTENV, SENV jj OPERATING UNDER APT? 
i) rer BS O0i031 175075 Bie SAPTSPOOL,, SENVM ; SHOULD SPOOL MESSAGES? 
i} Here NS om Bi Beoo Hees aoe 
(1) 004000 beste ponbe? 00004 4(SP) 5 j BUMP 
(1) : fer Sader ;;SEE IF’ Bone W/ LAST XMISSION? 
(1) D040 005767 175034 1S: Ist si 96E JF OO 
1) GoIOIS GIR? 17so¥e 2s TSTB (RO) + Hat AP te 
(1) i rst 
(h) Boson es Season 75032 SUB SMSGAD, RO ;;SUB START OF ME 
() Onis) Gi an: POMC a8 So ACN tee 
(1) 004036 7 bones 175002 MOV 84; SMSCTYPE ‘: TELL APT TO TAKE MSG. 
) opi 000004 0000 EC 3 ::PUT MSG ADDR IN JSR LINKAGE 
tt) 3 3S: MOV (SP),4S 5 ce 
(1) aes Geeree Goons Good “mg ag ach) Sau RETIN, ADORE 
@ 004 ? 177458 - TOR PC, STYPE ::CALL TYPE MACRO 
We: Be 
(1) 000062 ib: TSTB = SFFLG j SHOULD REBORT FATAL ERROR? 
iD £mE 174760 eGR t RUNNING URDER APT? 
(D ine ‘ BEQ 125 tt IF NOT: 
; 3 LAST MESSAGE? 
(1) O16 S78) 174732 11S: TST SHEGTYPE i dia BS 
GD @4(SP) SFATAL ;; 
rath 5 s RETURN ADDR 
MB eke SR Aaa 
Te a es i cS Ta 
ie ef Bie ei 
a} Bate Bisenh ee 3 
(1) 156 000207 RTS PC $3 nee 
(} Saige BBE Fe: <Bvte 8 HSE Pat 
(1) Bi} 5a FLG: .BYT FATAL FLAG 
(1) . 004164 * "EVEN 
(1) 000200 APTSIZE=200 





K0e 


SAIN. MACYLL 27(1 O9-FEB-77 10:1 7-14 
OZN9AC.P11 AROS) 8 Ber CONMUNECATIONS ROUTINE SEQ 0023 
() 000001 APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
668 SB INARY TO OCTAL (ASCII) AND TYPE 


 SHEKEASKRRRSELERSERRR RARER SERRE ESKER RRR RRA ERR ERE EE 
tETHIS ROUTINE IS USED TO CHANGE CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 


ives (ASEAtER HERE TO SETUP SL SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
log MCSD HAMPER NY PO 
.BYTE N tet 19 b FOR NUMBER OF DIGITS TO TYPE 


-BYTE MM 
"7 #ASTYPELERDING nos NG ZEROS 


iegivpos on S1¥PO HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


ee oe He oe ae ae Be 


. 
° 
; 
; 
; 
; 
; 
; 
; 
’ 
: 
; 
5 


ty MOV. sNUM, (SP) ; ;NUMBER TO BE TYPED 
js TYPON CALL FOR TYPEOUT 
jSTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
ms) NAR 
PSP) 'SOPILL L080 ZERO F TCH 
(SF 2, Broo AEE Hee 
STYPON 


$6’ SOMODE+1 Hu FOR Sixcé) DiGiTs 
85,80 T Ha ITERATION COUNT 
RY, RY 


RS. -(SP) : : SAVE 
SORODE'|, RY gay THe NUMBER OF DIGITS TO TYPE 





PESSBASSSESISUESIS 


#6, R4 ; SUBTRACT IT FOR MAX. ALLOWED 
000012 (SP) RS ig THE ONPUT” re 
ieee Gosbts 5 : Olea THE OUTPUT NeRBe 
1 1S: ROL RS 3 RO ATE MSB INTO "C” 
004272 OO0404 BR 3$ GO DO 
1 2S: ROL Re tt FORM THIS DIGIT 
1 ROL 
1 ROL RS 
010503 MOV RS,R3 
103 3S: ROL R3 + GET oe OF THIS DIGIT 
1 000076 DECE 1:T HIS DIGIT? 
100016 He 


LLL xq CLL LLL LLL LOO OR OR OR OA DALLA BDA LDA LALLA LP LDA LL LL LL mm, i, in, in, in, 
ee ee ee ee ae a ae be ae ee ae ae Be ne ee be a be a ee ee eh be ee 
ee ee ee ee Rt et Se Ne et et Nee Ne Nt ee eet et Net ee Se et et ee Set Set Ne et Set Rt et Net et et et et Cet et eet eet ee ee et et et ee ee a et et ee ee 


1 sf 
004314 042703 177770 ;;GET RID OF JUNK 


wo 
— 
Oo 
ce 
3 
N 
N 
oO 
=D 
Ww 





SEG 0024 


-FEB-77 10:15 PAGE 7-15 
-77 10:02 BINARY TO OCTAL (ASCII) AND TYPE 


-MAIN. MACY11 27( 1006) 


DZNSAC.P11 


GSES RSL HLCYT * 
Back FOR RETURNING 


of for ewe were Sah 
sgiatisytts Y yes gee 

EoaSs assent oeoN See 

cee Srey 

J 3 

ezoee $s 

2 


36-96-96 SE 4b EE SE SE ME a a a a a a a a a aa a a a a a aH HEHE 


ii 


yngeneStS ee BBEBBreSGEeD 


mt 
ae 


ESSESEBSEBSOREOSEDEEBEEE 


Caml 





ROUT 


SESSSESSSSSS25 
cage fag 
g Seen 2 


FOR FAST DOWN 


;;HANG UP 


SELLER ARARA EEA RARER RRR EERE EEE EE EEEE 


WGaABDDEES 


ou oO oO 
se  86€6f 6G 
a OER TE! =. “Oo 
stsnosan’s § a3, uemuce 


SSIAESSSSSSS 


R UP ROUTINE 


12737 oo04sS2 000024 $PUWRUP: 


; POWE 


f &§ 
fb 
poeseeneraeas 


Oh ed od 
OoOo00000000 


. 
Ron Seeeeeee 
zz 


emery jamais 


CN aT ae el a ee oe oe ee ee ee ee ee ae Se) * hele cae ae Le a Lea a ca he ca ae a ea ea ce a teas cae hoa ae hc ce See hc a eh a 
kd ad dd ad nd dd ad md a ad ed dd ad ad ad wd AL) md LS md mad a LF) CPD LED CPD LED MD LD ct ak dd nk nd wd wd wt HED OD ODOC 


i i i i ee 


ee et et et et et Net Net Net Net et Nt Set Net Net Net Ne Net Set Set Set Se Set Set See? See Set See? Set Se 





SEG 0025 


MOe 
POWER DOWN ANC UP ROUTINES 


O9-FEB-77 10:15 PAGE 7-16 


O9-FEB-77 10:02 


MACY11 27( 1006) 


OZNSAC.P11 


-MAIN. 


ont 


sty Bees 


; 5 Boe ORE Te ERR DOWN WAS COMPLETE 


ho fe 
© oa 3 
“ 3 § aE Saad Zz 
§ 3 ‘ g Hoss Es 
- re sis cEEE pS 
i ae 
ce § = aeze $2 555 
eo ee a 
b 


: Meera H: 


e 
TB 
F 
T 
ROUTI 
PC 
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